home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / QS3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  31 lines
  1. 0  TEXT : HOME 
  2. 9  PRINT : PRINT : PRINT 
  3. 10  PRINT "Where would you be the most massive?"
  4. 12  PRINT : PRINT 
  5. 14  PRINT "     a)  On top of Mount Everest"
  6. 15  PRINT 
  7. 16  PRINT "     b)  At the lowest point in Death            Valley"
  8. 17  PRINT 
  9. 18  PRINT "     c)  In the cornfields of the                Midwest"
  10. 19  PRINT 
  11. 20  PRINT "     d)  None of the above."
  12. 21  PRINT : PRINT 
  13. 30  GET KY$
  14. 39  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  15. 40  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 100
  16. 50  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 110
  17. 60  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 120
  18. 70  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 130
  19. 80  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOSUB 140
  20. 100  PRINT "Wrong, unless you eat all the corn.     Try again."
  21. 102  GOSUB 200: GOTO 0: RETURN 
  22. 110  PRINT "Nope!!  Try another answer."
  23. 112  GOSUB 200: GOTO 0: RETURN 
  24. 120  PRINT "Wrong, would your mass change??  Try    again."
  25. 122  GOSUB 200: GOTO 0: RETURN 
  26. 130  PRINT "That's RIGHT!!  The MASS of the object  stays the same.  The next question is   coming up."
  27. 132  GOSUB 300: PRINT  CHR$(4);"run qs4"
  28. 140  PRINT "Please enter only A, B, C, or D!!"
  29. 142  GOSUB 200: GOTO 0: RETURN 
  30. 200  FOR I = 0 TO 3100: NEXT : RETURN 
  31. 300  FOR I = 0 TO 4500: NEXT : RETURN